home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_pdfwr.ps < prev    next >
Text File  |  1997-10-02  |  12KB  |  378 lines
  1. %    Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. %
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gs_pdfwr.ps
  19. % PDF writer additions to systemdict.
  20.  
  21. % This file should be included iff the pdfwrite "device" is included
  22. % in the executable.
  23.  
  24. % Redefine pdfmark to pass the data to the driver.
  25. % We use a pseudo-parameter named /pdfmark whose value is an array:
  26. %    key1 value1 ... CTM /type
  27. /.pdf===dict mark
  28.   /arraytype
  29.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  30.         % Stack: file obj left right
  31.       4 1 roll 2 index exch writestring () exch
  32.        { exch 2 index exch writestring
  33.      1 index exch pdfmark===only ( )
  34.        }
  35.       forall pop exch writestring
  36.    } bind
  37.   /packedarraytype 1 index
  38.   /dicttype
  39.    { 1 index (<<\n) writestring
  40.       { 2 index 3 -1 roll pdfmark===only 1 index ( ) writestring
  41.     1 index exch pdfmark===only dup (\n) writestring
  42.       }
  43.      forall (>>) writestring
  44.    } bind
  45. .dicttomark readonly def
  46. /pdfmark===only        % <file> <obj> pdfmark===only -
  47.  { .pdf===dict 1 index type .knownget { exec } { write==only } ifelse
  48.  } bind def
  49. /.pdfcvs        % <obj> .pdfcvs <string>
  50.  {        % We can't handle long values yet.
  51.    =string /NullEncode filter dup 2 index pdfmark===only
  52.    dup (\n\000) writestring closefile pop
  53.    =string (\n\000) search
  54.     { dup length string copy exch pop exch pop }
  55.     {        % The converted representation didn't fit.  Punt.
  56.       pop (???)
  57.     }
  58.    ifelse
  59.  } bind def
  60. /.pdfputparams        % <paramarray> <paramname> .pdfputparams <result...>
  61.  { currentdevice null false mark 6 -2 roll exch
  62.         % Don't allow the page device to get cleared....
  63.      {.putdeviceparams} 0 get .currentpagedevice pop {.setpagedevice} 0 get
  64.    3 array astore cvx exec
  65.  } bind def
  66. /pdfmark        % -mark- <key> <value> ... <markname> pdfmark -
  67.  { counttomark 1 add copy
  68.    matrix currentmatrix .pdfcvs exch ]
  69.    1 2 2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  70.    /pdfmark .pdfputparams
  71.    type /booleantype ne { cleartomark } if cleartomark
  72.  } odef
  73. userdict /pdfmark .undef
  74.  
  75. % Define setdistillerparams / currentdistillerparams.
  76. % Distiller parameters are currently treated as device parameters.
  77. /.distillerparamkeys mark
  78.         % General parameters
  79.   /ASCII85EncodePages { }
  80.   /AutoRotatePages { }
  81.   /CompatibilityLevel { }
  82.   /CompressPages { }
  83.   /CoreDistVersion { }
  84.   /DoThumbnails { }
  85.   /ImageMemory { }
  86.   /LZWEncodePages { }
  87.   /PreserveHalftoneInfo { }
  88.   /PreserveOPIComments { }
  89.   /PreserveOverprintSettings { }
  90.   /TransferFunctionInfo { }
  91.   /UCRandBGInfo { }
  92.   /UseFlateCompression { }
  93.         % Color sampled image parameters
  94.   /ColorACSDict { }
  95.   /AntiAliasColorImages { }
  96.   /AutoFilterColorImages { }
  97.   /ColorImageDepth { }
  98.   /ColorImageDict { }
  99.   /DownsampleColorImages { }
  100.   /ColorImageDownsampleType { }
  101.   /EncodeColorImages { }
  102.   /ColorImageFilter { }
  103.   /ColorImageResolution { }
  104.   /ColorConversionStrategy { }
  105.   /ConvertCMYKImagesToRGB { }
  106.   /ConvertImagesToIndexed { }
  107.         % Grayscale sampled image parameters
  108.   /GrayACSDict { }
  109.   /AntiAliasGrayImages { }
  110.   /AutoFilterGrayImages { }
  111.   /GrayImageDepth { }
  112.   /GrayImageDict { }
  113.   /DownsampleGrayImages { }
  114.   /GrayImageDownsampleType { }
  115.   /EncodeGrayImages { }
  116.   /GrayImageFilter { }
  117.   /GrayImageResolution { }
  118.         % Monochrome sampled image parameters
  119.   /AntiAliasMonoImages { }
  120.   /MonoImageDepth { }
  121.   /MonoImageDict { }
  122.   /DownsampleMonoImages { }
  123.   /MonoImageDownsampleType { }
  124.   /EncodeMonoImages { }
  125.   /MonoImageFilter { }
  126.   /MonoImageResolution { }
  127.         % Font embedding parameters
  128.   /AlwaysEmbed
  129.    { dup length 0 gt
  130.       { dup 0 get false eq
  131.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  132.          } if
  133.       } if
  134.    }
  135.   /NeverEmbed
  136.    { dup length 0 gt
  137.       { dup 0 get false eq
  138.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  139.          } if
  140.       } if
  141.    }
  142.   /EmbedAllFonts { }
  143.   /SubsetFonts { }
  144.   /MaxSubsetPct { }
  145. .dicttomark readonly def
  146. /.distillerdevice
  147.  { currentdevice .devicename /pdfwrite eq
  148.     { currentdevice }
  149.     { /pdfwrite finddevice }
  150.    ifelse
  151.  } bind def
  152. /setdistillerparams        % <dict> setdistillerparams -
  153.  { .distillerdevice null false mark 4 index
  154.     { //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse }
  155.    forall .putdeviceparams
  156.    type /booleantype eq { pop } { cleartomark pop pop pop } ifelse pop
  157.  } odef
  158. /currentdistillerparams        % - currentdistillerparams <dict>
  159.  { .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  160.  } odef
  161.  
  162. % Patch the 'show' operators to pass the data to the device.
  163. % We use a pseudo-parameter named /show whose value is a dictionary:
  164. %    /String (str)
  165. %    /Values [cx cy char ax ay px py]
  166. %    /FontName /fontname
  167. %    /Matrix [xx xy yx yy tx ty]
  168. %    /Encoding [e0 .. e255]
  169. %      (optional, omitted if Encoding = BaseEncoding = StandardEncoding)
  170. %    /BaseEncoding [e0 ... e255] (optional, ditto)
  171. %    /CharStrings << charnames => anything >> (optional)
  172. % Note that the cx/y and ax/y values are in text space, not user space.
  173. % We also fill an empty path in order to get the clipping region and
  174. % current color set properly.  THIS IS A BIG HACK.
  175. /.pdfknownfonts mark
  176.   /Courier {StandardEncoding}
  177.   /Courier-Bold 1 index
  178.   /Courier-Oblique 1 index
  179.   /Courier-BoldOblique 1 index
  180.   /Helvetica 1 index
  181.   /Helvetica-Bold 1 index
  182.   /Helvetica-Oblique 1 index
  183.   /Helvetica-BoldOblique 1 index
  184.   /Times-Roman 1 index
  185.   /Times-Bold 1 index
  186.   /Times-Italic 1 index
  187.   /Times-BoldItalic 1 index
  188.   /Symbol {SymbolEncoding}
  189.   /ZapfDingbats {DingbatsEncoding}
  190. .dicttomark readonly def
  191. .currentglobal false .setglobal
  192. /.pdfknownids 50 dict def
  193. .setglobal
  194. /.findorigfont {    % <font> .findorigfont <origfont>
  195.             % Check for a known font with the same name,
  196.             % or one of the 14 known names,
  197.             % and the same UniqueID.
  198.   dup /UniqueID .knownget {
  199.     .pdfknownids 1 index .knownget {
  200.       exch pop dup null ne { true } { pop false } ifelse
  201.     } {            % We haven't looked up the UniqueID yet.
  202.             % Register the UniqueIDs of all fonts.
  203.       .FontDirectory {
  204.     exch pop dup /UniqueID .knownget {
  205.             % Stack: font uniqueid somefont somefontid
  206.       exch .pdfknownids 3 1 roll put
  207.     } {
  208.       pop
  209.     } ifelse
  210.       } forall
  211.             % Register the UniqueIDs of the 14 built-in fonts,
  212.             % to make sure they override any other fonts
  213.             % with the same UniqueIDs.
  214.       .pdfknownfonts {
  215.     pop
  216.     //systemdict /GlobalFontDirectory .knownget not { .FontDirectory } if
  217.     1 index .knownget {
  218.             % Stack: font uniqueid knownname knownfont
  219.       dup /UniqueID get exch .pdfknownids 3 1 roll put
  220.     } if pop
  221.       } forall
  222.             % Now see if the UniqueID is known.
  223.       .pdfknownids 1 index .knownget {
  224.     exch pop true
  225.       } {            % Record the UniqueID as not registered.
  226.     .pdfknownids exch null put false
  227.       } ifelse
  228.     } ifelse
  229.   } {            % This font has no UniqueID.
  230.     false
  231.   } ifelse
  232.             % Stack: font knownfont -true- | font -false-
  233.   {
  234.     exch pop
  235.   } {
  236.     { dup /OrigFont .knownget not { exit } if exch pop } loop
  237.   } ifelse
  238. } .bind def
  239. /setvmthreshold where { pop 1000000 setvmthreshold } if
  240. /.pdfdoshow        % <string> <cxd> <cyd> <char> <axd> <ayd> .pdfdoshow
  241.             %   <bool>
  242.  { mark /String 8 2 roll
  243. %vmstatus pop =only pop (, ) print
  244.    currentpoint transform 7 array astore /Values exch
  245.    currentfont .findorigfont
  246.         % Pass the original font name.
  247.    dup /FontName get
  248.    /FontName exch 3 -1 roll
  249.         % Concatenate the "quotient" of the current FontMatrix
  250.         % and the FontMatrix of the original font.
  251.         % Be sure to include any translation.
  252.    /Matrix
  253.      exch /FontMatrix get matrix invertmatrix
  254.      currentfont /FontMatrix get 1 index concatmatrix
  255.     % The matrix on the stack is now the font scaling matrix.
  256.     % Use it to inverse-transform cx/y and ax/y, so they will be in
  257.     % text space.
  258.     % Stack: mark /String <string> /Values <values> /FontName <fontname>
  259.     %   /Matrix <matrix>
  260.      4 index aload
  261.     %   ... cx cy char ax ay px py values
  262.      8 -2 roll 8 index idtransform 8 2 roll
  263.      5 -2 roll 8 index idtransform 5 2 roll
  264.      astore pop
  265.     % Now construct the combined matrix.
  266.      matrix currentmatrix dup 4 0 put dup 5 0 put dup concatmatrix
  267.     % Omit either encoding that is StandardEncoding.
  268.    /Encoding currentfont /Encoding .knownget not { [] } if
  269.      dup StandardEncoding eq { pop pop } if
  270.     % Make a reasonable guess at the base encoding.
  271.    /BaseEncoding .pdfknownfonts 6 index    % FontName
  272.      .knownget { exec } { StandardEncoding } ifelse
  273.    dup StandardEncoding eq {
  274.      pop pop
  275.    } {
  276.      currentfont /CharStrings .knownget { /CharStrings exch } if
  277.    } ifelse
  278. %vmstatus pop =only pop (, ) print
  279.    .dicttomark
  280.         % Set the clipping region and color in the output.
  281.         % This is another hack!
  282.    gsave newpath fill grestore
  283. %vmstatus pop =only pop (, ) print
  284.    /show .pdfputparams
  285. %vmstatus pop =only pop () = flush
  286.    dup type /booleantype eq
  287.     { pop pop true }
  288.     { dup /undefined eq
  289.        { cleartomark pop pop pop false }
  290.        { dup mark eq { /unknown /rangecheck } if
  291.      counttomark 4 add 1 roll cleartomark pop pop pop
  292.      /.pdfshow cvx exch signalerror
  293.        }
  294.       ifelse
  295.     }
  296.    ifelse
  297.  } .bind def
  298. /.pdfexecshow        % <proc> .pdfexecshow -
  299.  {        % Prevent output, but don't switch devices, since this
  300.         % confuses the Pattern caching mechanism.
  301.    gsave currentpoint newpath clip moveto exec currentpoint
  302.    grestore moveto
  303.  } .bind def
  304. /.pdfwrite?        % - .pdfwrite? <bool>
  305.  { currentdevice .devicename /pdfwrite eq
  306.    currentfont /FontType get 1 eq and
  307.  } .bind def
  308. % .pdfshow isn't an operator per se, but it still needs to be careful with
  309. % the stack so that the operators will have stack protection.
  310. /.pdfshow        % <string> <cx> <cy> <char> <ax> <ay> <showproc>
  311.             %   .pdfshow -
  312.  { 7 1 roll .pdfwrite?
  313.     { .pdfdoshow }
  314.     { 6 { pop } repeat false }
  315.    ifelse
  316.     { .pdfexecshow }
  317.     { exec }
  318.    ifelse
  319.  } .bind def
  320. /show
  321.  { dup 0 0 32 0 0 { show } .pdfshow
  322.  } .bind odef
  323. /ashow
  324.  { dup 0 0 32 6 index 6 index { ashow } .pdfshow
  325.  } .bind odef
  326. /widthshow
  327.  { 4 copy 4 1 roll 0 0 { widthshow } .pdfshow
  328.  } .bind odef
  329. /awidthshow
  330.  { 6 copy 6 1 roll { awidthshow } .pdfshow
  331.  } .bind odef
  332. /glyphshow where { pop } { (%END) .skipeof } ifelse
  333. /glyphshow
  334.  { .pdfwrite?
  335.     { currentfont /Encoding .knownget not { {} } if
  336.       0 1 2 index length 1 sub
  337.        {        % Stack: glyph encoding index
  338.      2 copy get 3 index eq { exch pop exch pop null exit } if pop
  339.        }
  340.       for null eq
  341.        { (X) dup 0 3 index put show pop }
  342.        { glyphshow }
  343.       ifelse
  344.     }
  345.     { glyphshow
  346.     }
  347.    ifelse
  348.  } .bind odef
  349. %END
  350. /.kshow1 {    % <index> <proc> <string> .kshow1
  351.   (X) dup 0 3 index 6 index get put show
  352.   2 index 1 index length 1 sub lt {
  353.     dup 3 index get exch 4 -1 roll 1 add get
  354.     3 -1 roll exec
  355.   } {
  356.     pop pop pop
  357.   } ifelse
  358. } .bind def
  359. /kshow {
  360.   .pdfwrite? {
  361.         % Construct a closure, and work character by character.
  362.     0 1 2 index length 1 sub 5 -2 roll
  363.     //.kshow1 /exec cvx 4 packedarray cvx for
  364.   } {
  365.     kshow
  366.   } ifelse
  367. } .bind odef
  368. % The remaining operators aren't implemented correctly.
  369. /xshow where {
  370.  pop /xshow { .pdfwrite? { 1 index show pop pop } { xshow } ifelse } .bind odef
  371. } if
  372. /yshow where {
  373.  pop /yshow { .pdfwrite? { 1 index show pop pop } { yshow } ifelse } .bind odef
  374. } if
  375. /xyshow where {
  376.  pop /xyshow { .pdfwrite? { 1 index show pop pop } { xyshow } ifelse } .bind odef
  377. } if
  378.